home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-02 / prodpack.zip / DB4PPSRC.EXE / _KEEPCLK.PRG < prev    next >
Text File  |  1993-05-04  |  1KB  |  48 lines
  1. *' $Header: $
  2. PROCEDURE _KeepClk
  3. PARAMETERS pl_status, pl_clock
  4. *---------------------------------------------------------------------
  5. * NAME
  6. *   _KeepClk - Turn the status bar off, and keep the clock ticking
  7. *
  8. * DESCRIPTION
  9. *   Turn off the status bar to reduce screen flicked.  Since turning
  10. *   off the status bar clears the screen, save the screen before doing it.
  11. *   Then, turn back on the clock, because it would appear frozen after
  12. *   the restore screen.
  13. *
  14. * SYNOPSIS
  15. *   DO _KeepClk WITH pl_status, pl_clock
  16. *
  17. * PARAMETERS
  18. *   pl_status   = Returns previous STATUS state, .T. is ON, .F. is OFF
  19. *   pl_clock    = Returns previous CLOCK state, .T. is ON, .F. is OFF
  20. *
  21. * LIMITATIONS
  22. *   None
  23. *
  24. * DEPENDENCIES
  25. *   Called by:  _FxEntry
  26. *---------------------------------------------------------------------
  27.  
  28.   *-- Turn off the status bar to eliminate screen noise
  29.   SAVE SCREEN TO fentr
  30.   pl_status = SET( "STATUS" ) = "ON"
  31.   SET STATUS OFF
  32.  
  33.   *-- Make the clock re-appear
  34.   RESTORE SCREEN FROM fentr
  35.   pl_clock = SET( "CLOCK" ) = "ON"
  36.   SET CLOCK ON
  37.  
  38.   RELEASE SCREEN fentr
  39.  
  40. RETURN
  41. *-- EOP: _KeepClk WITH pc_status, pc_clock
  42. *'----------------------------------------------------------------------------
  43. *' $Log: $
  44. *'----------------------------------------------------------------------------
  45.  
  46.  
  47.  
  48.